home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / n_b-v200.zip / DAS-NB01.INC < prev    next >
Text File  |  1996-03-11  |  7KB  |  129 lines
  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NB01.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6. DECLARE FUNCTION fALTdown%          ()
  7. DECLARE FUNCTION fArrSumB??         (SEG ANY,BYVAL Els%,BYVAL Msum??,SEG Rels%,BYVAL Stp%)
  8. DECLARE FUNCTION fArrSumI??         (SEG ANY,BYVAL Els%,BYVAL Msum??,SEG Rels%,BYVAL Stp%)
  9. DECLARE FUNCTION fASCII%            (SEG ANY,BYVAL MidPos%)
  10. DECLARE FUNCTION fASCIIr%           (SEG ANY)
  11. DECLARE FUNCTION fBIN$              (BYVAL V&,BYVAL Bytes?)
  12. DECLARE FUNCTION fBINvalB?          (ANY)
  13. DECLARE FUNCTION fBINvalI%          (ANY)
  14. DECLARE FUNCTION fBINvalL&          (ANY)
  15. DECLARE FUNCTION fCenterBOX%        (BYVAL Mini%,BYVAL Tlen%,BYVAL Length%)
  16. DECLARE FUNCTION fCenterPos%        (BYVAL Mini%,BYVAL Maxi%,BYVAL Length%)
  17. DECLARE      SUB  CHR2MID           (SEG ANY,BYVAL MidPos%,BYVAL Char?)
  18. DECLARE FUNCTION fCTRLdown%         ()
  19. DECLARE      SUB  DACget            (BYVAL DAC?,SEG R?,SEG G?,SEG B?)
  20. DECLARE FUNCTION fDACread$          (BYVAL Colors%)
  21. DECLARE      SUB  DACreadArr        (SEG Arr?,BYVAL Colors%)
  22. DECLARE      SUB  DACset            (BYVAL DAC?,BYVAL R?,BYVAL G?,BYVAL B?)
  23. DECLARE      SUB  DACwriteARR       (SEG Arr?,BYVAL Colors%)
  24. DECLARE      SUB  DACwriteSTR       (ANY)
  25. DECLARE FUNCTION fDesqView%         ()
  26. DECLARE      SUB  EndDelay          ()
  27. DECLARE FUNCTION fEndDelay%         ()
  28. DECLARE FUNCTION fExitKey%          (SEG ANY,BYVAL KeyPress%)
  29. DECLARE FUNCTION fGETPIECE$         (SEG ANY,BYVAL Sep?,BYVAL PieceNo%)
  30. DECLARE FUNCTION fHEX$              (BYVAL V&,BYVAL Bytes?)
  31. DECLARE FUNCTION fHEXvalB?          (ANY)
  32. DECLARE FUNCTION fHEXvalI%          (ANY)
  33. DECLARE FUNCTION fHEXvalL&          (ANY)
  34. DECLARE FUNCTION fINKEY%            (SEG ScanCode?,SEG AsciCode?)
  35. DECLARE FUNCTION fINSTAT%           (SEG ScanCode?,SEG AsciCode?)
  36. DECLARE FUNCTION fISCAPSON%         ()
  37. DECLARE FUNCTION fISINSON%          ()
  38. DECLARE FUNCTION fISNUMON%          ()
  39. DECLARE FUNCTION fISSCROLLON%       ()
  40. DECLARE FUNCTION fKey2Keyboard%     (BYVAL ScanCode?,BYVAL Asci?)
  41. DECLARE FUNCTION fLALTdown%         ()
  42. DECLARE FUNCTION fLastPiece$        (SEG ANY,BYVAL Sep?)
  43. DECLARE FUNCTION fLCTRLdown%        ()
  44. DECLARE FUNCTION fLSHIFTdown%       ()
  45. DECLARE      SUB  Mdelay            (BYVAL MSecs%)
  46. DECLARE FUNCTION fMID$              (SEG ANY,BYVAL First%,BYVAL Last%)
  47. DECLARE FUNCTION fPIECEPOS%         (SEG ANY,BYVAL Sep?,BYVAL PieceNo%)
  48. DECLARE FUNCTION fPutKey?           (SEG G%)
  49. DECLARE FUNCTION fQCopy$            (SEG ANY,BYVAL Bytes%)
  50. DECLARE      SUB  QCopyArr          (SEG ANY,SEG ANY,BYVAL Bytes%)
  51. DECLARE      SUB  QCopyStr          (SEG ANY,SEG ANY)
  52. DECLARE      SUB  QFillBArr         (SEG ANY,BYVAL V?,BYVAL Reps%)
  53. DECLARE      SUB  QFillIArr         (SEG ANY,BYVAL V%,BYVAL Reps%)
  54. DECLARE      SUB  QFillLarr         (SEG ANY,BYVAL X&,BYVAL Reps%)
  55. DECLARE      SUB  QLoadBArr         (SEG ANY,BYVAL V?,BYVAL Reps%)
  56. DECLARE      SUB  QLoadIArr         (SEG ANY,BYVAL V%,BYVAL Reps%)
  57. DECLARE FUNCTION fRALTdown%         ()
  58. DECLARE FUNCTION fRCTRLdown%        ()
  59. DECLARE      SUB  REVERSE           (SEG ANY)
  60. DECLARE FUNCTION fREVERSE$          (SEG ANY)
  61. DECLARE FUNCTION fRSHIFTdown%       ()
  62. DECLARE FUNCTION fSCAN%             (BYVAL MidPos%,SEG ANY,BYVAL Chars??)
  63. DECLARE FUNCTION fSCANcrlf%         (BYVAL MidPos%,SEG ANY)
  64. DECLARE FUNCTION fSCANnot%          (BYVAL MidPos%,SEG ANY,BYVAL Chars??)
  65. DECLARE FUNCTION fSCANr%            (BYVAL MidPos%,SEG ANY,BYVAL Chars??)
  66. DECLARE FUNCTION fSCANrNOT%         (BYVAL MidPos%,SEG ANY,BYVAL Chars??)
  67. DECLARE      SUB  SETCAPSOFF        ()
  68. DECLARE      SUB  SETCAPSON         ()
  69. DECLARE      SUB  SetDelay          (BYVAL MSecs%)
  70. DECLARE      SUB  SETINSOFF         ()
  71. DECLARE      SUB  SETINSON          ()
  72. DECLARE      SUB  SETNUMOFF         ()
  73. DECLARE      SUB  SETNUMON          ()
  74. DECLARE      SUB  SETSCROLLOFF      ()
  75. DECLARE      SUB  SETSCROLLON       ()
  76. DECLARE FUNCTION fSHIFTdown%        ()
  77. DECLARE FUNCTION fStr2Keyboard?     (SEG ANY)
  78. DECLARE FUNCTION fTALLY%            (BYVAL Start%,SEG ANY,BYVAL Char?)
  79. DECLARE      SUB  TOGGLECAPS        ()
  80. DECLARE      SUB  TOGGLEINS         ()
  81. DECLARE      SUB  TOGGLENUM         ()
  82. DECLARE      SUB  TOGGLESCROLL      ()
  83. DECLARE      SUB  VGAwaitRetrace    (BYVAL ScanLine%)
  84. '════════════════════════════════════════════════════════════════════════════
  85. DECLARE FUNCTION fAnyKey%           ()
  86. DECLARE FUNCTION fASCii2Dec$        (BYVAL A$)
  87. DECLARE FUNCTION fASCii2Hex$        (BYVAL A$)
  88. DECLARE FUNCTION fCheckDigit%       (BYVAL ANo$)
  89. DECLARE      SUB  ClearKeyboard     ()
  90. DECLARE      SUB  DACcolorDATA      (BYVAL Colour$,SEG Red?,SEG Green?,SEG Blue?)
  91. DECLARE      SUB  DACcolorSET       (SEG Colour$,BYVAL DACno?)
  92. DECLARE      SUB  DACcolorSET3D     (BYVAL Colour$,BYVAL DACno?)
  93. DECLARE FUNCTION fDisplayName$      (SEG D$,BYVAL Sep?)
  94. DECLARE FUNCTION fDisplayNameLF$    (SEG D$,BYVAL Sep?)
  95. DECLARE FUNCTION fDisplayNameLFH$   (SEG D$,BYVAL Sep?)
  96. DECLARE      SUB  Fade2arr          (SEG DACarr?,BYVAL Colors%)
  97. DECLARE      SUB  Fade2STR          (SEG DAC$,BYVAL Colors%)
  98. DECLARE FUNCTION fGetPieces$        (BYVAL V$,BYVAL Sep?,BYVAL F%,BYVAL T%)
  99. DECLARE      SUB  GreyScale         (SEG Arr?,BYVAL RGB%)
  100. DECLARE FUNCTION fGreyScale$        (SEG D$,BYVAL RGB%)
  101. DECLARE      SUB  GreyScale3D       (SEG Arr?,BYVAL RGB%)
  102. DECLARE      SUB  GreyScaleR        (SEG Arr?,BYVAL RGB%)
  103. DECLARE FUNCTION fHex2ASCii$        (BYVAL H$)
  104. DECLARE FUNCTION fHexFormat$        (BYVAL V$)
  105. DECLARE FUNCTION fISBN%             (SEG ISBN$)
  106. DECLARE FUNCTION fISBNck%           (SEG ISBN$)
  107. DECLARE      SUB  ISBNmask          (SEG NewMask$)
  108. DECLARE FUNCTION fJustCenter$       (BYVAL I$,BYVAL L%,BYVAL Char?)
  109. DECLARE FUNCTION fJustLeft$         (BYVAL I$,BYVAL L%,BYVAL Char?)
  110. DECLARE FUNCTION fJustRight$        (BYVAL I$,BYVAL L%,BYVAL Char?)
  111. DECLARE FUNCTION fKEYselect%        (BYVAL G%,BYVAL Ptr???,BYVAL Bytes%,SEG FoS%,BYVAL LastI%,BYVAL SelNo%,BYVAL Rows%,BYVAL Cols%,BYVAL Vert%,BYVAL Wrap%)
  112. DECLARE FUNCTION fLoadDAScolor$     ()
  113. DECLARE FUNCTION fLRtrim$           (BYVAL I$)
  114. DECLARE FUNCTION fRemoveDBLspc$     (BYVAL I$)
  115. DECLARE FUNCTION fREMOVEmid$        (BYVAL V$,BYVAL Start%,BYVAL HowMany%)
  116. DECLARE FUNCTION fRINSTR%           (BYVAL Start%,BYVAL V$,BYVAL Search$)
  117. DECLARE FUNCTION fRND%              (BYVAL LowNumber%,BYVAL HighNumber%)
  118. DECLARE FUNCTION fRNDstr$           (BYVAL Fasci%,BYVAL Tasci%,BYVAL Length%)
  119. DECLARE      SUB  SetPiece          (SEG V$,BYVAL Sep?,BYVAL PieceNo%,BYVAL New$)
  120. DECLARE      SUB  ShuffleB          (SEG B?(),BYVAL First%,BYVAL Last%,BYVAL Load%)
  121. DECLARE      SUB  ShuffleI          (SEG I%(),BYVAL First%,BYVAL Last%,BYVAL Load%)
  122. DECLARE      SUB  ShuffleW          (SEG W??(),BYVAL First%,BYVAL Last%,BYVAL Load%)
  123. DECLARE      SUB  StripName         (SEG D$,BYVAL Sep?,SEG L$,SEG F$,SEG H$)
  124. DECLARE FUNCTION fUsingMask$        (BYVAL Digits%,BYVAL Decimals%)
  125. DECLARE FUNCTION fValue2Words$      (BYVAL Number#)
  126. DECLARE FUNCTION fWordLeft%         (BYVAL P%,BYVAL V$)
  127. DECLARE FUNCTION fWordRight%        (BYVAL P%,BYVAL V$)
  128. '════════════════════════════════════════════════════════════════════════════
  129.